home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / misc / Hunk.lha / Hunk / Rexx / PrintReloc.rexx < prev    next >
OS/2 REXX Batch file  |  1998-02-14  |  603b  |  27 lines
  1. /*  Print the complete relocation table with "Hunk". © 1996 THOR */
  2.  
  3. IF OPEN(Printer, 'PRT:', 'W') THEN DO
  4.    CALL WRITELN(Printer, 'List of reloc entries')
  5.    CALL WRITELN(Printer, '')
  6.    EDITHUNK
  7.    DELOCATE
  8.    EDITRELOC 0
  9.    RELOC 'CNT'
  10.    SAY CNT.COUNT 'reloc entries'
  11.    LAST=0
  12.    X=0
  13.    EDITENTRY 0
  14.    DO i=0 TO CNT.COUNT-1
  15.       ENTRY 0 0 i 'HERE'
  16.       CALL WRITECH(Printer,INSERT('0x' || D2X(HERE.OFFSET),'',1,8,' ') INSERT('>0x' || D2X(HERE.OFFSET-LAST),'',1,7,' '))
  17.       X=X+1
  18.       IF X=4 THEN DO
  19.          X=0
  20.          CALL WRITELN(Printer,'')
  21.       END
  22.       LAST=HERE.OFFSET
  23.    END
  24. END
  25.  
  26.  
  27.